/* 最大流之最大密度子图
* 1.密度子图
    在G中选择一个点集V和边集E，其中边集的任意一条边的两个端点都要求属于 V，求 |E|/|V|的最大值，其中 |E|为边数，|V|为点数
    设 |E||V|>g⇔|E|−g×|V|>0，如果 max{|E|−g×|V|}>0，说明答案应该会比 g更大，即该式子具有单调性，可以二分，
    
* 2.01分数规划
    |E|−g×|V|最大 -> g×|V|-|E|最小
    假设选择的点集V'，边集E'，c[V, V']为点集V, 点集V'之间边的数量，d[i]为i的度数
    则|E'| = (∑(v∈V′)d[v] = c[V', V-V']) / 2; g*|V'| - |E'| = ∑(v∈V′)g - (∑(v∈V′)d[v] = c[V', V-V']) / 2 = 1/2 ×(∑(v∈V′)(2g−d[v])+c[V′,V−V′])

 
* 3.割
    显然 c[V′,V−V′]当原图对应流网络的边容量都为1时可以对应流网络中的一个割 [S,T]
    而还存在 2g−d[v]这个点权，不妨将所有点向汇点连一条容量为 2g−d[v]的边，这样 V′=S−s 中的每个点都会向 T 中的 t 连一条容量为 2g−d[v] 的割边，
    但是流网络的所有容量都要求非负，而 2g−d[v] 可能为负，不妨将所有点连向汇点 t 的容量加上一个偏移量 U，同时源点 s 向所有点连一条容量为 U 的边

    此时割边分为三部分：s−>V−V′,V′−>t,V−>V−V′，
    则 C[S,T]=∑(v∈V−V′)U + ∑(v∈V′)(2g−d[v]+U) + ∑(v∈V′)∑(u∈V−V′)c[v,u]
             =nU + ∑(v∈V′)(2g−(d[v]−∑(u∈V−V′)c[v,u])
             =nU + ∑(v∈V′)(2g − ∑(u∈V′)c[v,u])
             =nU + 2g|V′|−2|E′|

    要使 g|V′|−|E′|最小，即 C[S,T]最小，即最小割

    另外，由于 d[v]不可能超过边数，即可以将 U 置为边数

* 4.扩展
    1)图中存在边权
        将 d[v] 改成所有从v出发的边权之和
    2)图中存在点权和边权
        即要求 (|E|+|V|)/cntV 最大，其中 |E| 为所有选择的边权之和，|V|为所有选择的点权之和，cntV 为点集 V 的点数，
        此时要最大化 |E|+|V|−g×cntV, 等价于最小化 g×cntV−|E|−|V|
        -> 1/2 ×(∑(v∈V′)(2g−d[v]-2p[v])+c[V′,V−V′]) p[v]为v点权值，c[u,v]为u到v的边权
        即存在边权的做法下，先汇点连的边容量应该为2g−d[v]-2p[v]

* 本题:
    点：通讯中转站
    边：用户群
*/

#define DEBUG
#pragma GCC optimize("O1,O2,O3,Ofast")
#pragma GCC optimize("no-stack-protector,unroll-loops,fast-math,inline")
#pragma GCC target("avx,avx2,fma")
#pragma GCC target("sse,sse2,sse3,sse4,sse4.1,sse4.2,ssse3")

#include <iostream>
#include <cstring>
using namespace std;
const int N = 55010,  M = (50000*3 + 5000)*2 + 10, INF = 0x3f3f3f3f;  
int n, m, S, T;
int e[M], h[N], c[M], ne[M], idx;//
int q[N], d[N], cur[N];
int deg[N], p[N]; //点度数 点权


void AddEdge(int a, int b, int w1, int w2)
{
    e[idx] = b, c[idx] = w1, ne[idx] = h[a], h[a] = idx++;
    e[idx] = a, c[idx] = w2, ne[idx] = h[b], h[b] = idx++;
}

bool bfs()
{
    memset(d, -1, sizeof d);
    int hh = 0, tt = -1;
    q[++tt] = S, d[S] = 0, cur[S] = h[S];
    while(hh <= tt)
    {
        int u = q[hh++];
        for(int i=h[u]; ~i; i=ne[i])
        {
            int v = e[i];
            if(d[v] == -1 && c[i])
            {
                d[v] = d[u]+1;
                cur[v] = h[v];
                if(v == T) return true;
                q[++tt] = v;
            }
        }
    }
    return false;
}

int find(int u, int limit)
{
    if(u == T) return limit;

    int flow = 0;
    for(int i=cur[u]; ~i && flow < limit; cur[u]=i, i=ne[i])
    {
        int v = e[i];
        if(d[v] == d[u]+1 && c[i])
        {
            int t = find(v, min(limit-flow, c[i]));
            if(!t) d[v] = -1;
            c[i] -= t; c[i^1] += t, flow += t;
        }
    }
    return flow;
}

int Dinic()
{
    double r = 0, flow;
    while(bfs())
        while(flow = find(S, INF)) r += flow;
    return r;
}

signed main()
{
    #ifdef DEBUG
        freopen("./in.txt", "r", stdin);
    #else
        ios::sync_with_stdio(0); cin.tie(0); cout.tie(0);
    #endif

    memset(h, -1, sizeof h);
    cin >> n >> m;
    S = 0, T = n+1;

    for(int i=1; i<=n; i++) cin >> p[i], p[i]*=-1;
    for(int i=1; i<=m; i++)
    {
        int a, b, c; cin >> a >> b >> c;
        AddEdge(a, b, c, c);
        deg[a]+=c, deg[b]+=c;
    }

    int U = 0;
    for(int i = 1; i <= n; i++) U = max(U, 2*p[i] + deg[i]);

    // build
    for(int i = 1; i <= n; i++)
    {
        AddEdge(S, i, U, 0);
        AddEdge(i, T, U-2*p[i]-deg[i], 0);
    }
    
    printf("%d\n", (n*U-Dinic())/2);
    return 0;
}